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MODULE COBSL INAGE ( 
oem = "1-016" ! file COBLINAGE.B32 EDIT:LB81016 


BEGIN 


' 
ASSES LILI IIIT IIIT ETT T TTT rire criti iri titi iii tit iiiiiitititiititicy 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS to Serke fs FURNISHED aa LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS L an ME BL A. E 


} N THE ‘ T_NOTIC T OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER 35 + NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 


aza»YP 
oO 
nn 
zum 
Cc 
o 
=x 
cot 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:. eORPORAT oe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ae 
4 
5 
“” 
wn 
m 
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eaenepeneeneeaee eee ea een enanene 


SeRRRRARAAA RARER AAAAAAAAAAAAAAAEEAAAAE RATER AAA AAAAAARAAEAAARAEERERARAEEEE 
' 


i 

lee 

i FACILITY: COBOL SUPPORT 
i ABSTRACT: 


This module contains the RTL routines to handle LINAGE files 
for VAX-11 COBOL. 


, 

1 

' 

' 

] 

' 

' 

3 

i 

ENVIRONMENT: VAX/VMS user mode 

: AUTHOR: Wm P. Storey, CREATION DATE: 18-July-1979 
: MODIFIED BY: 

} 1-001 = Original version. WPS 18-JULY-79 

' 
' 
] 
' 
4 
' 
' 
i] 
' 
1 
1 


i 1-002 - +s i be to _jncure TOP Lines on first logical page. 


! 1-003 - changed ¢ context fields (CTX) from an area pointed to by 

X to an area that precedes in storage the RAB 
and hse is ggect tied by negative offsets from the RAB. 
WPS 135-SEPT- 


i 1-004 = Fix problem with end-of-page processing for WRITEs that 
over flow age body. 
WPS 17-SEPT=-79 
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a 3 ji 

3 1 ! 1-005 = Change references to REQUIRE files to make compatible with 

: $9 » : : rest’ of system. RKR Beep T=59 a 

; 66 § 1 | 1-006 = Fix problem with CALL Ing gerecetedace e init-Linage 

; © 1! routine for ggse of LINKAGE SECTION Linage parameters. 

3 C3 ¢ ; : WPS 18-SEPT- 

: 68 1! 1-007 - Handle special case of "BEFORE ADVANCING identifier’, where 
a 067 1! identifier is equal to zero, for which the generated code 

; 68 8 1 ; will produce a prefix-postfix of <CR><CR>. WPS 24-SEPT- 

; 4 ny : 1-008 = Signal filename for invalid LINAGE parameters. WPS 25-SEPT-79 
ae Le 1 | 1-009 - Cosmetic changes. RKR 26-SEPT-79 

Pe 0075 1! 

; 0074 1 ! 1-010 = Correct problem with ADVANCING PAGE that caused loss of 1 Line 
3 2 Bote ’ per page advanced (forgot to add 1). WPS 1-0ct-1979 

ee 0079 1 ' 1-011 = Correct problem with FOOTING that did not distinguish between 
.) a 3078 1: “footing not specified’ and ‘footing speci tied but with value 0°’. 
3 He th : PS 5-0ct-1979 

; 81 4 1 i ee 4 - Addition of comments as per code review. WPS 16-Oct-1979 

; S¢ o 1 ! 1-013 = Further minor cosmetic c onges RKR 20-0CT-1979 

 & oe 1! 1-014 - change references to OTSS_FATINTERR to COBS_FATINTERR. 

; 84 84 1! RKR 29-0CT-79 

3; @ 0085 1 ! 1-015 = Addition of routine COBSTERM_LINAGE. WPS 31-Oct-1979 

; 8 0086 1 ! 1-016 = Added LIB$STOP as external routine. Also added EDIT field 

; 44 se $4 ; } for checkin’s use and updated copyright notice. LB 30-NOV-1981 
: 89 0089 1 i-- 

; 0090 1 !<BLF/PAGE> 


7% 2 
COBRTL.SRCJCOBLINAGE .B32;1 (1) 


p 3 
20 123 | 


eS 
. 
j ™N 
ro 
; 
™m 
ow 
ou 
. 
| we 
> 
ue 
mS | 
| ‘vw | 
ow 
nu 
—ax ~ 
_—Y 7 
@s« - 
—_ —) 
--— -— 
x 2 
aw 
Sau a) 
@ 
So 
ow 
to oa 
mwa £ 
-oO 
-—- ” 
7 oe te 
om =) 
o-~ uw 
“ 
we a 
on w 
nr . 
i] eo 
aa — 
me@o bad 
ye & 
zovw 
-— - 


" SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE ) ; 
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GLOBAL ROUTINE COBSLINAGE(RAB,INIT_LNG_ROUTIN) = 


FUNCTIONAL DESCRIPTION: 


This routine is called to perform Linage functions prior t Lli 
SYSSPUT for LINAGE files. P ge functions prior to calling 


FORMAL PARAMETERS: 
RAB. ra.v 


is the address of the RAB of the associated 
LINAGE file. 


INIT_LNG_ROUTIN.czem.vp is the address of the meas | mask of the CALLable 
routine generated in-line by VAX-11 COBOL to 
convert the Linage parameters to longwords in 
the context field. 


0690 


IMPLICIT INPUTS: 


COBSV_CTX_OPENL TRUE if LINAGE file has been opened but not yet 
written to. This bit is needed to make sure 
that TOP Lines are positioned on the first 
logical page. 


COBSL_CTX_LINAG specifies the number of Lines in the page body; 
-e., it specifies the number of Lines on the 
logical page that can be written. 


COBSL_CTX_FOOTI specifies the Line number within the page body 
at which the footing area begins. The geting 
area is the ‘danger zone’’ area at the end of the 
page body in which the end-of-page condition is 
true, but printing/spacing is still allowed. 


COBSL_CTX_TOP specifies the number of Lines that comprise the 
top margin on the boptcat page. The top margin 
is a NO-print area that precedes the page body. 


COBSL_CTX_BOTTO specifies the number of Lines that comprise the 
bottom margin on the logical page. The bottom 
persia is a NO-print area that follows the page 

y. 


COBSL_CTX_COUNT specifies the Line number at which the device is 
positioned within the current pose pody, It is 
the COBOL special register LINAGE-COUNTER. 


RABSL_RHB is the address of the two byte control area 
containing the print file information. The 
first byte is the ‘prefix’ area, and the second 
byte is the ‘postfix’ area, specify ng carriage 
control to be per toracs before and after the 
vecord. respectively. One control byte will 
contain either an wateger n in the range of 0 
thru 127 (indicating ADVANCING nm LINES) or a 
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199 hex 8C (indicating ADVANCING PAGE); and the 

00 other control byte will contain a hex 8D) 

01 panerees ing no vertical gore tees control; note 
og that <CR> is used to indicate the absence of 

0 vertical movement; $ necessary to insure 


t 
proper over-print ing in print files). The 
gerereres code special cases BEFORE ADVANCING 
+43 b by putting out <CR><CR> in the prefix- 
postfix control bytes (this is necessery to 
insure proper overprinting for “AFTER ADVANC ING 
O LINES , BEFORE ADVANCING 0 LINES" sequence. 


LESTE 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 


7 If End-Of-Page condition then TRUE else FALSE. 
SIDE EFFECTS: | 
NONE | 
BEGIN | 
7 LITERAL 
7 CR = %x'8D', 
7 FE = %x'8C', | 
7 TRUE = 1, 
? FALSE = 0; 
7 BUILTIN 
7 CALLG, 
7 FP 
7 TESTBITSC; 


AP 
RAB : REF BLOCK (,BYTEI, 
FP : REF BLOCK C,BYTEJ; 


LOCAL 
RHB : REF BLOCK, 
RETURN_VALUE, 
TEMP; 


ANEW | O DONO UESWN $$ O OONAOULS WN" OVDONOUSWN—OVOO 
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Be Se So Se Oo Se Se Se Fe Se Se Ge Se Se Ga Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge So Ge Go Se Ge SF Ss Se Fe SF Ss FFG Se Ge Ss Se Se Se Se Se Se Sees 


RaPIPOPORINOMOPDPOPIPINYRSNONINIPINYPDPDNYDDPININIPINININPYU NPI PININIPININIPYPIPUPOPUPINIPYUAINININININYNY) 


i 

7? !  COBSLINAGE should not cause access violations. Since COBSLINAGE is called 
8 ! before the associated SYSSPUT, the RAB may be invalid. Validate the RAB by 
9 7 ! checking that RAB$W_ISI is non-zero, Nute that this DOES recognize the 
9 g } case of a CLOSEd file that was previously OPEN. 
; 7 IF ,RABCRABSW_ISI} EQL 0 

7 THEN 
54 7 RETURN FALSE; 
55 7 


14 
1b-Se 1984 00:11:37 AX-11 Bliss-32 V4.0-74 
10-388-18be 19 10:29 COBRTL SREICOBL INAGE B92; 1 
RHB = .RABCRABSL_RHB); 


' 
Determine whether ADVANCING Lines or ADVANCING PAGE, 
and adjust RHB to point to meaningful information byte 
within RABSL_RHB. onse RHB +> been adjusted, further 
references are to RHBLCONTROLI. 


i 
1 
; 
i 
' 
Uf; RHBCSIGN (PREF 1X) 

IF NOT .RHBCSIGN(POSTFIX)] 


RHB = .RHB + 1 


Neither is ADVANCING Lines, so either one is ADVANCING PAGE 
(very Hf pag agp or both are <CR> “yee Ow 
probability). Let us assume that this is ADVANCING PAGE. 


LINAGE files may not use form-feed for ADVANCING PAGE, 
so calculate number of new Lines needed. LINAGE will 

always be greater than LiNAGE-COUNTER for ADVANCING 

PAGE. Note that the Lines at TOP are for the next logical page. 


EMP = .RABCCOBSL_CTX_LINAG] - .RABCCOBSL_CTX_COUNT] + 1 
+ TRABCCOB$SL_CTX_BOTTO); 


atevacsesecacaceomcasase 


C0009 09 098 SI NINN ISIN NNN EAA A AAA 


—OODNOVES WN 3 9 OONAUSWN “OV ONOUES WN —OOONG 


3 Determine which control field has <FF>. 
IF .RHBCPOSTFIX] EQL FF 
BEGIN 
IF TESTBITSC(RABCCOBSV_CTX_OPENLJ) 
THEN | 


DWONAWNE WN CO OO NAME WN OO ODNAUE WN "OC OONAOUES WN —OO 


i WRITE rec BEFORE ADVANCING PAGE 
' and this is first WRITE to file 
Advance TOP Lines prior as well. 


(IF .RABCCOBSL cTX_10P3 NEQ 0 
THEN RHBCPREFIR] =~. RABCCOBSL_CTX_TOP)); 


RHB = .RHB + 1 
END 
ELSE 
if .RHBCPREFIX] EQL FF 
SFE en eT TRE ERARR CRDON STE PEM. TT 
' 


(0 09 Cd Cd Cd 09 Cd C9 Cd Cd Cd Cd Cd 00 Cd OD G9. 09 09 09 OD 09 9 Od Cd Od Od Cd Od C9 CD C9 C9 09 09 C9 CD 0D 09 0909 SIN INI NI NI ISINSIS 
PEE EF FAWN WWIII RPI PIPINPINININID 2 2 OS SS “QOOCOCOOCOCOCOCOCOOVOOOOO0OO0OM 


i WRITE rec AFTER ADVANCING PAGE 
! and this is first WRITE to file. 
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ile-time. It is poqeesers to call it with the AP of the 
COBOL program in which it resid 

in LINKAGE SECTION. 
CALLG(.FPCSFSL_SAVE_AP],(.INIT_LNG_ROUTIN)); 

RHBCCONTROL] = .TEMP + .RABCCOBSL_CTX_TOPI; 


RETURN TRUE 
END;. 


es to handle Linage parameters 


1} Beg : Include the TOP portion of first logical page. 

15 Bc TEMP = .TEMP + .RABCCOBSL_CTX_TOP]) 
BS oo 

18 51 ! The sign bit_is set for both control bytes, yet neither 
19 B26 ! is a <FF>. Conegquent iy this must be case of <CR><CR>, 
20 85 i which means WRITE rec BEFORE ADVANCING 0 LINES. Hence, 
33 See the LINAGE=COUNTER is not affected. 
856 RETURN FALSE; 

$¢ tH 
f 3s . 
27 60 ! Call the ‘initialize-linage-routine’ which will convert the 

28 861 : LINAGE parameters to longwords in the context area of the RAB. 
$3 B66 ! This ‘initialize-Linage-routine’ is generated in-line at 

0 ' com 

1 4 : 

; 5 ! 

6 
4 7 
5 


WWWNNW 


Seuss 


NOUS WN O OVONOU SW OOO 


At this point, we are oot ygeelg Lines and RHB has address of the chosen 
prefix/postfix lines that are to be advanced. Update LINAGE-COUNTER. 


® eight tty CTX_COUNT]; 


TEMP : 
RABCCOBSL_CTX_COUNT] = .RABLCOBSL_CTX_COUNT] + .RHBCCONTROLI; 


WIA AWNA AANA WNW 


SREP LLEEE 


Determine if over page body or in FOOTING area. 
HF AOC Coss. cTk_COUNT) GTR .RABCCOBSL_CTX_LINAG] 
BEGIN 


WAAW.AWWWW 


DIANNA 


SSSSTSEIA 
MEWN—O0O@ 


: The write about to be performed will put us over the page body. 
: Recalculate the number of Lines to advance to include BOTTOM 
! and TOP. Note that the Lines at TOP are for the next sogiees page, 
therefore, add lines at TOP after CALL to initialize-routine. 
R 


HBCCONTROL] = .RABCCOBSL_CTX_LINAG) - TEMP + 1 
+ .RABCCOBSL-CTX_BOTTO); 


WAI 


Oc 
(Co 00 0d 09 C9 G9 09 09 08 C8 SIN SII NNN NNO 
SSLESRANSLSSSLSEALAN SS SANS AS INI — Sooo 
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' 

! Call the ‘initialize-linage-routine’ which will convert the 

1 LINAGE parameters fo longwords in the context area of the RAB. 
6 S ! This ‘initialize-linage-routine’ is generated in-line at 
68 901 : seees tent mae It is Recessery to call it with the AP of the 
69 0902 ! COBOL program in which it resides to handle linage parameters 
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} im LINKAGE SECTION. 
CALLG(.FPCSFSL_SAVE_APJ,(.INIT_LNG_ROUTIN)); 
RHBCCONTROL] = .RHBCCONTROL] + .RABCCOBSL_CTX_TOPJ; 
RETURN_VALUE = TRUE 
} 
! The write to be performed will not put us over the page body. 
: f we are now within the footing area, return TRUE to indicate 
end-of-page condition. 
if -RABCCOBSL_CTX_COUNT] GEQ .RABCCOBSL_CTX_FOOTIJ 
RETURN_VALUE = TRUE 
RETURN_VALUE = FALSE; 
Normaily, Lines at TOP are positioned Gur'tng end-of-page processing. 
It is ree”. to special-case the first WRITE on the first logical 
page after a file has been OPEned. 
A athena cil elate 
BEGIN 
OCAL 
PREPTR: REF BLOCK; 
PREPTR = .RABCRABS$L_RHB); 
IF .PREPTRCPREFIX] EQu CR 
THEN | 
i WRITE rec BEFORE ADVANCING nm LINES 
ure -RABCCOBSL_CTX_TOP] NEQ 0 
ns PREPTRCPREFIX] = .RABCCOBSL_CTX_TOPJ) 
am PREPTRCPREFIX] = .PREPTRCPREFIX] + .RABCCOBSL_CTX_TOP) 
RETURN .RETURN_VALUE 
END; 
«TITLE COBSLINAGE 
-IDENT \1-016\ 
-EXTRN COBS_ERRON_FIL, COBS_INVLINVAL 
-EXTRN COBS_FATINTERR 
-PSECT _COBSCODE,NOWRT, SHR, PIC,2 | 
000C 00000 ENTRY COBSLINAGE, Save R2,R3 ; 0675 | 
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04 C PB 13$ 3 0940. 
gi FO 89 ap O9¢ igs: ADDB2 139 n0), (PREPTR) 3 O34e, 
0 5 B C6 158: MOVL RETURN_ VALUE, RO 3 0947. 

4 000C RET ; 

50 D4 OOOCA 148: CLRL RO 5 0948. 

04 OQOOCC RET 3 


; Routine Size: 205 bytes, Routine Base: _COBSCODE + 0000 
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14-Sep-1984 COBRTL.SRCJCOBLINAGE .852;1 (4). 


: rat 808 } GLOBAL ROUTINE COBSINIT_LINAGE(RAB) : NOVALUE = 

Bo lie 

; 4g) 2 § i FUNCTIONAL DESCRIPTION: 

3 4 § 955 1! This routine is called by the generated code in-line “initialize- 

; 424 9 § 1! Linage-routine’’ to consistency check the | nege peceweters as per 

3 ? é tH : the COBOL standard and to set the value of LINAGE=COUNTER to 1. 

; 4 0959 1 | FORMAL PARAMETERS: 

; 4 8 960 1! 

; 2 sd } } RAB.ra.v ‘telat + of the RAB of the associated 

> 431 963 1 | : 

3 6 ¢ 964 1 ! IMPLICIT INPUTS: 

>; 4 965 1! 

3; 4 0966 1! COBSL_CTX_LINAG specifies the number of Lines in the page body; 
; 435 0967 1! i.e., it specifies the number of Lines on the 

: $33 3308 : logical page that can be written. 

; 1/ COBSL_CTX_FOOTI specifies the Line number within the page body 
: 1 Srea"1s"thes“Ganger® zone area" atthe’ end’ of the 
; 1/ page body in which the end-of-page condition is 
: : : true, but printing/spacing is still allowed. 

; 1 COBSL_CTX_TOP specifies the number of Lines that comprise the 
3 2 top margin on the sogvees page. The top margin 
: : is a NO-print area that precedes the page body. 
; 1! COBSL_CTX_BOTTO specifies the number of Lines that comprise the 
H 1! bottom margin on the logical page. The bottom 
; ' pecgra is a NO-print area that follows the page 
3 : y- 

3 7: 

; 1! COBSL_CTX_COUNT specifies the Line number at which the device is 
3 1 } positioned within the current page BOey It is 
3 : the COBOL special register LINAGE-COUNTER. 

; 1 

3 1 ! IMPLICIT OUTPUTS: 

; 1: 

3 : : If the consistency checks fail, ‘‘bad Linage parameters'’ are SIGNALed. 
; t ROUTINE VALUE: 

: ' NONE 

3 : SIDE EFFECTS: 

; 1: NONE 

3 1! 

e 4 leo 

3 1 

; § BEGIN 
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1-016 12-8081 384 90710249 COBRTL.SRCICOBLINAGE.B est . (4) | 
> 474 1006 ahige ROUTINE 
5 $0? ! : LIBSSTOP:NOVALUE; ! Signal fatal error 
; a79 1098 MAP RAB : REF BLOCK C.BYTE); 

ne 

: 480 18ig i COBSINIT_LINAGE should not cause access violations. Since it may 
> 481 101 ! pe called before the associated SYSSPUT, the RAB may be invalid. 

3 rt 1919 1 Walidate the RAB by checking that RABSW_ISI is non-zero. 

: 484 1016 if .RABCRABSW_ISI) EQL 0 

3 tee 191 THEN RETURN; 

: aa? 1019 

: 488 1020 i At the time this routine is called, the Linage parameters have 

3; 489 1021 ! been converted to longwords in the context area. Check that 

3 re + + ¢ ; all values are valid. 

; 49 1084 if .RABCCOBSL_CTX_LINAG] GTR 0 

; 49% 108 -RABLCOBSL_CTX_TOP]  GEQ 0 

; 496 1028 -RABLCOBSL CTX.BOTTO] GEO 0 

; 498 1080 -RABLCOBSL CTX FOOT GTR 0 

; 300 1038 -RABCCOBSL_CTX_FOOTIJ 

; 208 1034 -RABLCOBSL_CTX_LINAG] 

; 50 1035 

meow to 

; 506 1038 i Linage parameters are valid. As this routine is called for each 
3 rd 1973 } new page, set the COBOL special register LINAGE-COUNTER to 1. 

: 509 1041 RABLCOBSL_CTX_COUNT) = 1 

3 310 13s6 

3; 511 104 ELSE 

2) ‘pet 

3 514 1046 i Linage parameters are invalid. Signal “invalid Linage value’’ 

3; 515 1047 ! and indicate what file this occurred on. 

oe inca 
i: 518 1980 FAB : REF BLOCK f .ByTEd. 

; 519 1051 NAM : REF te -BYTEI, 

> > 1926 RSADESC : VECTOR(2); 

; 3 é 1054 FAB = .RABCRABSL_FAB); 

i 33 1055 IF .FAB EQL 0 THEN SIGNAL_STOP(COBS_FATINTERR); 

: 525 1987 NAM = ,FABCFABSL_NAM); 

: 396 1 38 IF .NAM EQL 0 THEN SIGNAL_STOP(COBS_FATINTERR); 

; 528 1060 RSADESCET] = -NAMENAMSL _RSA ; 

: 268 198) RSADESCLO) = .NAMLNAMS$B_RSLJ; 


Se a eae | ee ee eee 
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; 1 1063 IF .RSADESCCO) EQL 0 THEN RSADESCLO] = .NAMCNAMSB_ESL];: 
; ¢ 1064 ; IF RACES hS] EQL 5s 
3 1065 THEN 
; 1 $ 4 BEGIN 
; 5 1 4 RSADESCEO) = .FAB FABSB_ENS]; 

; 68 4 RSADESC 1) = .FABLFABSL-FNAJ: 
: 5 1070 : 
; 9 1071 LIBSSTOP(COBS_INVLINVAL ,0,COBS_ERRON_FIL,1,RSADESC) 
: 540 107¢ END 
: 541 1073 1 END; 
-EXTRN LIBSSTOP | 
003c 00000 -ENTRY COBSINIT_LINAGE, Save R2,R3,R4,R5 : 0949 | 
55 000000006 8F 00 00002 MOVL  $#COBS_FATINTERR, RS : | 
54 000000006 00 i 00009 MOV LIBSSTOP, R4 : 
SE 08 C 90019 SUBL2 #8, SP ; 
50 04 AC DO 0001 MOVL RAB : 1016) 
02 Ad 83 00017 TSTW (Rb) : 
65 13 OOO1A BEQL : | 
F8 AO D5 0001C TSTL  =8(RO) > 1024 
1B 15 OOO1F BLE 3 | 
FO Ad 05 90021 TSTL -16(RO) 3 1026) 
16 19 00024 BLSS 3 
EC AO 05 9006 TSTL  =20(RO) : 1028. 
11 19 00029 BLSS 3 
F4 =AO DS 900 B TSTL  =12(RO) : 1030 
0c 15 000 BLEQ : 
F8 AO F4 AO D1 000 CMPL  =12(RO), -8(RO) : 1034 
05 14 000 BGTR 3 
E8 Ad 01 D0 00037 MOVL #1, =-24(RO) > 1041) 
04 90038 RET : 
53 3c ©6000 0003C 18 MOVL 60(RO), FAB + 1054 | 
05 12 99049 BNEQ 2$ : 1055 | 
55 DD 00042 PUSHL R5 : 
64 01 FB 00044 CALLS #1, LIBS$STOP : 
52 28 A3 DO 00047 28 MOVL 40(FAB), : 1057) 
05 12 00048 BNEQ 3$ : 1058 | 
55 DD 00040 PUSHL R5 : 
64 01 FB 004F CALLS #1, LIBSSTOP : 
04 AE 04 ng p 005 3$: MOVL  4(NAM), RSADESC+4 > 1060. 
6£ 3 Ad 9a 0005 MOVZBL 3(NAM). RSADESC : 1061 | 
OF 12 00058 BNEQ  4$ : 1063 | 
6E 0B Ag 9A 00050 MOVZBL 11(NAM), RSADESC : 
09 12 00061 BNEQ 4$ 5 1064 | 
6E 34 a3 oA 9065 MOVZBL 52(FAB), RSADESC : 1067 | 
04 AE 2c «=6A3 «DO 0006 MOVL  44(FAB), RSADESC+4 : 1068 | 
5E DD 906¢ 4$ PUSHL SP > 1071 | 
1 DD 3 PUSHL #1 ; 
000000006 8F DD PUSHL #COBS$_ERRON_FIL ; 
E D4 16 CLRL. = (SP) : 
000000006 a DD 0007 PUSHL #coBs INVLINVAL : | 
64 5 FB 00 43 CALLS #5, LYBSSTOP ; 
04 00081 5$: RET : 1073. 


ee fenet a moe Ain eb) 


; Routine Size: 130 bytes, Routine Base: _COBSCODE + O0CD 
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rb a GLOBAL ROUTINE COBSTERM_LINAGE(RAB) : NOVALUE = 

45 6 1o+ 

4 7 ' 

of B78 FUNCTIONAL DESCRIPTION: 

49 gay This routine is called to advance the number of Lines needed to 

3} 8 ; finish out the logical page before the actual CLOSE is done. 

Hh 

if 0 ¢ FORMAL PARAMETERS: 

5 OR RAB.ra.v is the address of the RAB of the associated 

28 et LINAGE file. 

ry OSp IMPLICIT INPUTS: 

60 091 COBSV_CTX_OPENL TRUE if LINAGE file has been opened but not yet 
2) O36 written to. ' 
368 094 COBSL_CTX_LINAG specifies the number of Lines in the page body; 
208 095 i.e., it specifies the number of Lines on the 
20? B38 logical page that can be written. 
567 098 COBSL_CTX_FOOTI specifies the Line number within the page body 
568 099 at which the footing area begins. The footin 


area is the ‘‘datiger zone’’ area at the end of Phe 
page body in which the end-of-page condition is 
true, but printing/spacing is still allowed. 


COBSL_CTX_TOP specifies the number of Lines that comprise the 
top margin on the logical page. The top margin 
is a NO-print area that precedes the page body. 


COBSL_CTX_BOTTO specities the number of Lines that comprise the 
bottom margin on the logical page. The bottom 
socgin is a NO-print area that follows the page 

ody. 


COBSL_CTX_COUNT specifies the Line number at which the device is 
positioned within the current page aye It is 
the COBOL special register LINAGE-COUNTER. 
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IMPLICIT OUTPUTS: 


A PUT to the ‘sange file is performed; any error status caused by the 
‘write’ is ignored. 


ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 
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fm Pie 
3 $38 i : BEGIN 

; 1135 SXTERNAL ROUTINE 

: es i CyS$PUTS 

; 11 maP 

: 608 1138 RAB : REF BLOCK (,BYTE); 

; gi9 103 a REF BLOCK C,BYTE) 

Beg 8 as anal 

: 614 1145 i COBSTERM_LINAGE should not cause access violations. Since it WILL 

; 615 1128 ! be called before the associated SYSS$CLOSE, the RAB may be invalid. 

; 616 1147 i Validate the RAB by checking that RABSW_ISI is non-zero. 

; 618 1149 if .RABCRABSW_ISI] EQL 0 

; 619 1150 THEN RETURN; 

. ee 

; 6 § 1183 i If no WRITE has ever been done for this file, then no adjustment 

3 6 1154 ! need be done at CLOSE time. Note that the tlag bit is checked 

: ° : 1422 H but not cleared; if it is set, we will not be doing a WRITE either. 
3 6 6 1137 if RABCCOBSV_CTX_OPENLI 

; 628 1159 RETURN; 

; 6 1161 RHB = .RABCRABSL_RHB); 

; 6 § 1183 RHBCPREFIX] = .RABCCOBSL_CTX_LINAG] - .RABCCOBSL_CTX_COUNT] + 1 

3; 63 1164 = .RABCCOBSL_CTX_BOTTO]; 

: 83 1188 | 

3 $36 1168 Make sure that there is something to advance. 

; 6 116 if .RHBCPREFIX] EQL 0 

; 639 1170 THEN 

§ “ 11% RETURN; 

> 64 117 RHBLPOSTFIX) = 0; 
LB Sch dy : 
3 645 117 i The actual WRITE is done by PUTing a record of 0 Length with iat 
: oe 17? advance in the PRN contvel Heide ; —_— npattpere’: 
; 648 Hi RABCRABSW_RSZ) = 0; 

> 650 1181 SYS$SPUT(.RAB) 

3; 651 1182 ENDS 


-EXTRN SYSSPUT 


N 14 
16 -Sep-1 :37 AX-11 Bliss-32 V4.0-7 P 
1e8eb-19R6 Vost0:e9 — Ledart.’saeicoaL INGE BS2:1 Mead 
0004 8 -ENTRY COBSTERM_LINAGE, Save R2 é 
50 0% AC D MOVL RAB, RO 3 
2 A 83 00 TSTW (RO) : 
2 BEQL $ 3 
g FC «6AO OE Obe BLBS Pr bis 1$ 3 7 
ef AQ D F MOVL 44(RO), R 3 7 
fa OA E8 AD C3 00013 SUBL3 =24(ROS, -8(RO), R1 71 
3} ec A 35) ADDL -20(R0), R1 3 7 
1 gt } 10 ADDB #1, RI, (RHB) 3 
F 0021 EQL 1$ 3 7 
9) A2 94 00023 CLRB 1(RHB) 3 7 
2 AO B84 38 3 CLRW 34(RO) 31 
50 DD 00 PUSHL RO 3 7 
060000006 00 01 FB 000 5 CALLS #1, SYSS$PUT 3 
04 00032 1$: RET 3 
; Routine Size: 51 byies, Routine Base: _COBSCODE + 014F 
H $38 1183 1 END 
; 65 1184 0 ELUDOM 
-EXTRN LIBSSTOP 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: _COBSCODE 386 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC.ALIGN(2) 
: Library Statistics 
ae Dae eta pee ee Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 1 0 581 00:00.7. 
: COMMAND QUALIFIERS 
; PLISS/CMECK=CE SELB, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:COBL INAGE/OBJ=0BJ$:COBLINAGE MSRC$:COBL INAGE /UPDATE=(ENH$: COBL INAGE 
3; Si 
: S eg 9608.3 ; 0 data bytes 
3 od Time: 0:40.4 
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3 Lines/CPU Min: 1603 
3 Lexemes/CPU-Min: 31856 
3 panecy Used: 121 pages 
; Compilation Complete 
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